// ************************************************************************ //
// The types declared in this file were generated from data read from the
// WSDL File described below:
// WSDL     : http://ekoindri.com/radphp/research/soap_sis_laporan_keuangan.php?wsdl
//  >Import : http://ekoindri.com/radphp/research/soap_sis_laporan_keuangan.php?wsdl>0
// Encoding : ISO-8859-1
// Version  : 1.0
// (1/1/2012 11:09:10 PM - - $Rev: 28374 $)
// ************************************************************************ //

unit soap_sis_laporan_keuangan;

interface

uses InvokeRegistry, SOAPHTTPClient, Types, XSBuiltIns;

type

  // ************************************************************************ //
  // The following types, referred to in the WSDL document are not being represented
  // in this file. They are either aliases[@] of other types represented or were referred
  // to but never[!] declared in the document. The types from the latter category
  // typically map to predefined/known XML or Embarcadero types; however, they could also 
  // indicate incorrect WSDL documents that failed to declare or import a schema type.
  // ************************************************************************ //
  // !:string          - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:integer         - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:dateTime        - "http://www.w3.org/2001/XMLSchema"[Gbl]
  // !:float           - "http://www.w3.org/2001/XMLSchema"[Gbl]

  TInfoServer          = class;                 { "http://localhost"[GblCplx] }
  TLaporanSPPRow       = class;                 { "http://localhost"[GblCplx] }
  TLaporanUangPembangunanRow = class;           { "http://localhost"[GblCplx] }
  TLaporanBeaSiswaRow  = class;                 { "http://localhost"[GblCplx] }
  TLaporanPenerimaanRow = class;                { "http://localhost"[GblCplx] }
  TLaporanPengeluaranRow = class;               { "http://localhost"[GblCplx] }



  // ************************************************************************ //
  // XML       : TInfoServer, global, <complexType>
  // Namespace : http://localhost
  // ************************************************************************ //
  TInfoServer = class(TRemotable)
  private
    Fserver_host: string;
    Fserver_database: string;
    Fserver_username: string;
    Fserver_password: string;
  published
    property server_host:     string  read Fserver_host write Fserver_host;
    property server_database: string  read Fserver_database write Fserver_database;
    property server_username: string  read Fserver_username write Fserver_username;
    property server_password: string  read Fserver_password write Fserver_password;
  end;



  // ************************************************************************ //
  // XML       : TLaporanSPPRow, global, <complexType>
  // Namespace : http://localhost
  // ************************************************************************ //
  TLaporanSPPRow = class(TRemotable)
  private
    FID: Int64;
    FSISWA_KODE: string;
    FSISWA_NAMA_AWAL: string;
    FSISWA_NAMA_TENGAH: string;
    FSISWA_NAMA_AKHIR: string;
    FSISWA_KELAS: string;
    FSPP_TGL: TXSDateTime;
    FSPP_NILAI: Single;
    FSPP_KETERANGAN: string;
  public
    destructor Destroy; override;
  published
    property ID:                Int64        read FID write FID;
    property SISWA_KODE:        string       read FSISWA_KODE write FSISWA_KODE;
    property SISWA_NAMA_AWAL:   string       read FSISWA_NAMA_AWAL write FSISWA_NAMA_AWAL;
    property SISWA_NAMA_TENGAH: string       read FSISWA_NAMA_TENGAH write FSISWA_NAMA_TENGAH;
    property SISWA_NAMA_AKHIR:  string       read FSISWA_NAMA_AKHIR write FSISWA_NAMA_AKHIR;
    property SISWA_KELAS:       string       read FSISWA_KELAS write FSISWA_KELAS;
    property SPP_TGL:           TXSDateTime  read FSPP_TGL write FSPP_TGL;
    property SPP_NILAI:         Single       read FSPP_NILAI write FSPP_NILAI;
    property SPP_KETERANGAN:    string       read FSPP_KETERANGAN write FSPP_KETERANGAN;
  end;

  TLaporanSPP = array of TLaporanSPPRow;        { "http://localhost"[GblCplx] }


  // ************************************************************************ //
  // XML       : TLaporanUangPembangunanRow, global, <complexType>
  // Namespace : http://localhost
  // ************************************************************************ //
  TLaporanUangPembangunanRow = class(TRemotable)
  private
    FID: Int64;
    FSISWA_KODE: string;
    FSISWA_NAMA_AWAL: string;
    FSISWA_NAMA_TENGAH: string;
    FSISWA_NAMA_AKHIR: string;
    FSISWA_KELAS: string;
    FUANGPEMBANGUNAN_TGL: TXSDateTime;
    FUANGPEMBANGUNAN_NILAI: Single;
    FUANGPEMBANGUNAN_KETERANGAN: string;
  public
    destructor Destroy; override;
  published
    property ID:                         Int64        read FID write FID;
    property SISWA_KODE:                 string       read FSISWA_KODE write FSISWA_KODE;
    property SISWA_NAMA_AWAL:            string       read FSISWA_NAMA_AWAL write FSISWA_NAMA_AWAL;
    property SISWA_NAMA_TENGAH:          string       read FSISWA_NAMA_TENGAH write FSISWA_NAMA_TENGAH;
    property SISWA_NAMA_AKHIR:           string       read FSISWA_NAMA_AKHIR write FSISWA_NAMA_AKHIR;
    property SISWA_KELAS:                string       read FSISWA_KELAS write FSISWA_KELAS;
    property UANGPEMBANGUNAN_TGL:        TXSDateTime  read FUANGPEMBANGUNAN_TGL write FUANGPEMBANGUNAN_TGL;
    property UANGPEMBANGUNAN_NILAI:      Single       read FUANGPEMBANGUNAN_NILAI write FUANGPEMBANGUNAN_NILAI;
    property UANGPEMBANGUNAN_KETERANGAN: string       read FUANGPEMBANGUNAN_KETERANGAN write FUANGPEMBANGUNAN_KETERANGAN;
  end;

  TLaporanUangPembangunan = array of TLaporanUangPembangunanRow;   { "http://localhost"[GblCplx] }


  // ************************************************************************ //
  // XML       : TLaporanBeaSiswaRow, global, <complexType>
  // Namespace : http://localhost
  // ************************************************************************ //
  TLaporanBeaSiswaRow = class(TRemotable)
  private
    FID: Int64;
    FSISWA_KODE: string;
    FSISWA_NAMA_AWAL: string;
    FSISWA_NAMA_TENGAH: string;
    FSISWA_NAMA_AKHIR: string;
    FSISWA_KELAS: string;
    FBEASISWA_TGL: TXSDateTime;
    FBEASISWA_NILAI: Single;
    FBEASISWA_KETERANGAN: string;
  public
    destructor Destroy; override;
  published
    property ID:                  Int64        read FID write FID;
    property SISWA_KODE:          string       read FSISWA_KODE write FSISWA_KODE;
    property SISWA_NAMA_AWAL:     string       read FSISWA_NAMA_AWAL write FSISWA_NAMA_AWAL;
    property SISWA_NAMA_TENGAH:   string       read FSISWA_NAMA_TENGAH write FSISWA_NAMA_TENGAH;
    property SISWA_NAMA_AKHIR:    string       read FSISWA_NAMA_AKHIR write FSISWA_NAMA_AKHIR;
    property SISWA_KELAS:         string       read FSISWA_KELAS write FSISWA_KELAS;
    property BEASISWA_TGL:        TXSDateTime  read FBEASISWA_TGL write FBEASISWA_TGL;
    property BEASISWA_NILAI:      Single       read FBEASISWA_NILAI write FBEASISWA_NILAI;
    property BEASISWA_KETERANGAN: string       read FBEASISWA_KETERANGAN write FBEASISWA_KETERANGAN;
  end;

  TLaporanBeaSiswa = array of TLaporanBeaSiswaRow;   { "http://localhost"[GblCplx] }


  // ************************************************************************ //
  // XML       : TLaporanPenerimaanRow, global, <complexType>
  // Namespace : http://localhost
  // ************************************************************************ //
  TLaporanPenerimaanRow = class(TRemotable)
  private
    FID: Int64;
    FUSER_NAME: string;
    FUSER_NAMA_AWAL: string;
    FUSER_NAMA_TENGAH: string;
    FUSER_NAMA_AKHIR: string;
    FUSER_OTORISASI: string;
    FPENERIMAAN_JENIS: string;
    FPENERIMAAN_TGL: TXSDateTime;
    FPENERIMAAN_NILAI: Single;
    FPENERIMAAN_KETERANGAN: string;
  public
    destructor Destroy; override;
  published
    property ID:                    Int64        read FID write FID;
    property USER_NAME:             string       read FUSER_NAME write FUSER_NAME;
    property USER_NAMA_AWAL:        string       read FUSER_NAMA_AWAL write FUSER_NAMA_AWAL;
    property USER_NAMA_TENGAH:      string       read FUSER_NAMA_TENGAH write FUSER_NAMA_TENGAH;
    property USER_NAMA_AKHIR:       string       read FUSER_NAMA_AKHIR write FUSER_NAMA_AKHIR;
    property USER_OTORISASI:        string       read FUSER_OTORISASI write FUSER_OTORISASI;
    property PENERIMAAN_JENIS:      string       read FPENERIMAAN_JENIS write FPENERIMAAN_JENIS;
    property PENERIMAAN_TGL:        TXSDateTime  read FPENERIMAAN_TGL write FPENERIMAAN_TGL;
    property PENERIMAAN_NILAI:      Single       read FPENERIMAAN_NILAI write FPENERIMAAN_NILAI;
    property PENERIMAAN_KETERANGAN: string       read FPENERIMAAN_KETERANGAN write FPENERIMAAN_KETERANGAN;
  end;

  TLaporanPenerimaan = array of TLaporanPenerimaanRow;   { "http://localhost"[GblCplx] }


  // ************************************************************************ //
  // XML       : TLaporanPengeluaranRow, global, <complexType>
  // Namespace : http://localhost
  // ************************************************************************ //
  TLaporanPengeluaranRow = class(TRemotable)
  private
    FID: Int64;
    FUSER_NAME: string;
    FUSER_NAMA_AWAL: string;
    FUSER_NAMA_TENGAH: string;
    FUSER_NAMA_AKHIR: string;
    FUSER_OTORISASI: string;
    FPENGELUARAN_JENIS: string;
    FPENGELUARAN_TGL: TXSDateTime;
    FPENGELUARAN_NILAI: Single;
    FPENGELUARAN_KETERANGAN: string;
  public
    destructor Destroy; override;
  published
    property ID:                     Int64        read FID write FID;
    property USER_NAME:              string       read FUSER_NAME write FUSER_NAME;
    property USER_NAMA_AWAL:         string       read FUSER_NAMA_AWAL write FUSER_NAMA_AWAL;
    property USER_NAMA_TENGAH:       string       read FUSER_NAMA_TENGAH write FUSER_NAMA_TENGAH;
    property USER_NAMA_AKHIR:        string       read FUSER_NAMA_AKHIR write FUSER_NAMA_AKHIR;
    property USER_OTORISASI:         string       read FUSER_OTORISASI write FUSER_OTORISASI;
    property PENGELUARAN_JENIS:      string       read FPENGELUARAN_JENIS write FPENGELUARAN_JENIS;
    property PENGELUARAN_TGL:        TXSDateTime  read FPENGELUARAN_TGL write FPENGELUARAN_TGL;
    property PENGELUARAN_NILAI:      Single       read FPENGELUARAN_NILAI write FPENGELUARAN_NILAI;
    property PENGELUARAN_KETERANGAN: string       read FPENGELUARAN_KETERANGAN write FPENGELUARAN_KETERANGAN;
  end;

  TLaporanPengeluaran = array of TLaporanPengeluaranRow;   { "http://localhost"[GblCplx] }

  // ************************************************************************ //
  // Namespace : http://localhost
  // soapAction: http://ekoindri.com/radphp/research/soap_sis_laporan_keuangan.php/%operationName%
  // transport : http://schemas.xmlsoap.org/soap/http
  // style     : rpc
  // binding   : SERVICE_LAPORAN_KEUANGANBinding
  // service   : SERVICE_LAPORAN_KEUANGAN
  // port      : SERVICE_LAPORAN_KEUANGANPort
  // URL       : http://ekoindri.com/radphp/research/soap_sis_laporan_keuangan.php
  // ************************************************************************ //
  SERVICE_LAPORAN_KEUANGANPortType = interface(IInvokable)
  ['{CC00637B-2F63-C31D-D9B5-FDF4336198EB}']
    function  LAPORAN_SPP(const connection_string: TInfoServer; out laporanlist: TLaporanSPP): string; stdcall;
    function  LAPORAN_UANGPEMBANGUNAN(const connection_string: TInfoServer; out laporanlist: TLaporanUangPembangunan): string; stdcall;
    function  LAPORAN_BEASISWA(const connection_string: TInfoServer; out laporanlist: TLaporanBeaSiswa): string; stdcall;
    function  LAPORAN_PENERIMAAN(const connection_string: TInfoServer; out laporanlist: TLaporanPenerimaan): string; stdcall;
    function  LAPORAN_PENGELUARAN(const connection_string: TInfoServer; out laporanlist: TLaporanPengeluaran): string; stdcall;
  end;

function GetSERVICE_LAPORAN_KEUANGANPortType(UseWSDL: Boolean=System.False; Addr: string=''; HTTPRIO: THTTPRIO = nil): SERVICE_LAPORAN_KEUANGANPortType;


implementation
  uses SysUtils;

function GetSERVICE_LAPORAN_KEUANGANPortType(UseWSDL: Boolean; Addr: string; HTTPRIO: THTTPRIO): SERVICE_LAPORAN_KEUANGANPortType;
const
  defWSDL = 'http://ekoindri.com/radphp/research/soap_sis_laporan_keuangan.php?wsdl';
  defURL  = 'http://ekoindri.com/radphp/research/soap_sis_laporan_keuangan.php';
  defSvc  = 'SERVICE_LAPORAN_KEUANGAN';
  defPrt  = 'SERVICE_LAPORAN_KEUANGANPort';
var
  RIO: THTTPRIO;
begin
  Result := nil;
  if (Addr = '') then
  begin
    if UseWSDL then
      Addr := defWSDL
    else
      Addr := defURL;
  end;
  if HTTPRIO = nil then
    RIO := THTTPRIO.Create(nil)
  else
    RIO := HTTPRIO;
  try
    Result := (RIO as SERVICE_LAPORAN_KEUANGANPortType);
    if UseWSDL then
    begin
      RIO.WSDLLocation := Addr;
      RIO.Service := defSvc;
      RIO.Port := defPrt;
    end else
      RIO.URL := Addr;
  finally
    if (Result = nil) and (HTTPRIO = nil) then
      RIO.Free;
  end;
end;


destructor TLaporanSPPRow.Destroy;
begin
  SysUtils.FreeAndNil(FSPP_TGL);
  inherited Destroy;
end;

destructor TLaporanUangPembangunanRow.Destroy;
begin
  SysUtils.FreeAndNil(FUANGPEMBANGUNAN_TGL);
  inherited Destroy;
end;

destructor TLaporanBeaSiswaRow.Destroy;
begin
  SysUtils.FreeAndNil(FBEASISWA_TGL);
  inherited Destroy;
end;

destructor TLaporanPenerimaanRow.Destroy;
begin
  SysUtils.FreeAndNil(FPENERIMAAN_TGL);
  inherited Destroy;
end;

destructor TLaporanPengeluaranRow.Destroy;
begin
  SysUtils.FreeAndNil(FPENGELUARAN_TGL);
  inherited Destroy;
end;

initialization
  InvRegistry.RegisterInterface(TypeInfo(SERVICE_LAPORAN_KEUANGANPortType), 'http://localhost', 'ISO-8859-1');
  InvRegistry.RegisterDefaultSOAPAction(TypeInfo(SERVICE_LAPORAN_KEUANGANPortType), 'http://ekoindri.com/radphp/research/soap_sis_laporan_keuangan.php/%operationName%');
  InvRegistry.RegisterReturnParamNames(TypeInfo(SERVICE_LAPORAN_KEUANGANPortType), 'return;return;return' +
                                                                                   ';return;return');
  RemClassRegistry.RegisterXSClass(TInfoServer, 'http://localhost', 'TInfoServer');
  RemClassRegistry.RegisterXSClass(TLaporanSPPRow, 'http://localhost', 'TLaporanSPPRow');
  RemClassRegistry.RegisterXSInfo(TypeInfo(TLaporanSPP), 'http://localhost', 'TLaporanSPP');
  RemClassRegistry.RegisterXSClass(TLaporanUangPembangunanRow, 'http://localhost', 'TLaporanUangPembangunanRow');
  RemClassRegistry.RegisterXSInfo(TypeInfo(TLaporanUangPembangunan), 'http://localhost', 'TLaporanUangPembangunan');
  RemClassRegistry.RegisterXSClass(TLaporanBeaSiswaRow, 'http://localhost', 'TLaporanBeaSiswaRow');
  RemClassRegistry.RegisterXSInfo(TypeInfo(TLaporanBeaSiswa), 'http://localhost', 'TLaporanBeaSiswa');
  RemClassRegistry.RegisterXSClass(TLaporanPenerimaanRow, 'http://localhost', 'TLaporanPenerimaanRow');
  RemClassRegistry.RegisterXSInfo(TypeInfo(TLaporanPenerimaan), 'http://localhost', 'TLaporanPenerimaan');
  RemClassRegistry.RegisterXSClass(TLaporanPengeluaranRow, 'http://localhost', 'TLaporanPengeluaranRow');
  RemClassRegistry.RegisterXSInfo(TypeInfo(TLaporanPengeluaran), 'http://localhost', 'TLaporanPengeluaran');

end.